home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 November / Chip_2004-11_cd1.bin / software / frigate / Frigate3_Lite_v25.exe / {app} / Addons / Schemes / TclTk.sch < prev    next >
Text File  |  2004-01-06  |  4KB  |  114 lines
  1. object TPersHolder
  2.   P.Name = 'Tcl/Tk'
  3.   P.Extensions.Strings = (
  4.     'tcl')
  5.   P.SyntaxBlocks = <
  6.     item
  7.       Name = 'Default'
  8.       UseMetaSymbol = True
  9.       UseMetaToWrapLines = True
  10.       MetaSymbol = '\'
  11.       FIText = 0
  12.       FIIntNum = 1
  13.       FIFloatNum = 2
  14.       FIHexNum = 3
  15.       UseComments = True
  16.       UseFullLineComments = True
  17.       UseStrings = True
  18.       UseSingleLineStrings = True
  19.       UseNumbers = True
  20.       UseKeywords = True
  21.       BlockDelimiters = <>
  22.       FullLineCommentDelimiters = <
  23.         item
  24.           FontID = 4
  25.           LeftDelimiter = '#'
  26.         end>
  27.       SingleLineStringDelimiters = <
  28.         item
  29.           FontID = 5
  30.           LeftDelimiter = '"'
  31.           RightDelimiter = '"'
  32.         end>
  33.       KeywordSets = <
  34.         item
  35.           FontID = 6
  36.           Name = 'commands'
  37.           Keywords =
  38.             'AFTER,APPEND,ARRAY,BELL,BGERROR,BINARY,BIND,BINDIDPROC,BINDPROC,' +
  39.             'BINDTAGS,BITMAP,BREAK,BUTTON,CANVAS,CATCH,CD,CHECKBUTTON,CLIPBOA' +
  40.             'RD,CLOCK,CLOSE,CONCAT,CONTINUE,DESTROY,ELSE,ENTRY,EOF,ERROR,EVAL' +
  41.             ',EVENT,EXEC,EXIT,EXPR,FBLOCKED,FCONFIGURE,FCOPY,FILE,FILEEVENT,F' +
  42.             'ILENAME,FLUSH,FOCUS,FONT,FOR,FOREACH,FORMAT,FRAME,GETS,GLOB,GLOB' +
  43.             'AL,GRAB,GRID,HISTORY,HTTP,IF,IMAGE,INCR,INFO,INTERP,JOIN,LABEL,L' +
  44.             'APPEND,LIBRARY,LINDEX,LINSERT,LIST,LISTBOX,LLENGTH,LOAD,LOADTK,L' +
  45.             'OWER,LRANGE,LREPLACE,LSEARCH,LSORT,MENU,MESSAGE,NAMESPACE,NAMESP' +
  46.             'UPD,OPEN,OPTION,OPTIONS,PACK,PACKAGE,PHOTO,PID,PKG_MKINDEX,PLACE' +
  47.             ',PROC,PUTS,PWD,RADIOBUTTON,RAISE,READ,REGEXP,REGISTRY,REGSUB,REN' +
  48.             'AME,RESOURCE,RETURN,RGB,SAFEBASE,SCALE,SCAN,SEEK,SELECTION,SEND,' +
  49.             'SENDOUT,SET,SOCKET,SOURCE,SPLIT,STRING,SUBST,SWITCH,TCL,TCLVARS,' +
  50.             'TELL,TEXT,THEN,TIME,TK,TK_BISQUE,TK_CHOOSECOLOR,TK_DIALOG,TK_FOC' +
  51.             'USFOLLOWSMOUSE,TK_FOCUSNEXT,TK_FOCUSPREV,TK_GETOPENFILE,TK_GETSA' +
  52.             'VEFILE,TK_MESSAGEBOX,TK_OPTIONMENU,TK_POPUP,TK_SETPALETTE,TKERRO' +
  53.             'R,TKVARS,TKWAIT,TOPLEVEL,TRACE,UNKNOWN,UNSET,UPDATE,UPLEVEL,UPVA' +
  54.             'R,VARIABLE,VWAIT,WHILE,WINFO,WM'
  55.         end>
  56.     end>
  57.   P.FontTable = <
  58.     item
  59.       FontID = 0
  60.       Font.Charset = DEFAULT_CHARSET
  61.       Font.Color = clBlack
  62.       Font.Height = -13
  63.       Font.Name = 'Courier New'
  64.       Font.Style = []
  65.     end
  66.     item
  67.       FontID = 1
  68.       Font.Charset = DEFAULT_CHARSET
  69.       Font.Color = clGreen
  70.       Font.Height = -13
  71.       Font.Name = 'Courier New'
  72.       Font.Style = []
  73.     end
  74.     item
  75.       FontID = 2
  76.       Font.Charset = DEFAULT_CHARSET
  77.       Font.Color = clGreen
  78.       Font.Height = -13
  79.       Font.Name = 'Courier New'
  80.       Font.Style = []
  81.     end
  82.     item
  83.       FontID = 3
  84.       Font.Charset = DEFAULT_CHARSET
  85.       Font.Color = clGreen
  86.       Font.Height = -13
  87.       Font.Name = 'Courier New'
  88.       Font.Style = []
  89.     end
  90.     item
  91.       FontID = 4
  92.       Font.Charset = DEFAULT_CHARSET
  93.       Font.Color = clGray
  94.       Font.Height = -13
  95.       Font.Name = 'Courier New'
  96.       Font.Style = [fsItalic]
  97.     end
  98.     item
  99.       FontID = 5
  100.       Font.Charset = DEFAULT_CHARSET
  101.       Font.Color = clMaroon
  102.       Font.Height = -13
  103.       Font.Name = 'Courier New'
  104.       Font.Style = []
  105.     end
  106.     item
  107.       FontID = 6
  108.       Font.Charset = DEFAULT_CHARSET
  109.       Font.Color = clBlue
  110.       Font.Height = -13
  111.       Font.Name = 'Courier New'
  112.       Font.Style = [fsBold]
  113.     end>
  114. end